home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / H-I / HyperScrap.cpt / HyperScrap / stack_-1.xml < prev    next >
Extensible Markup Language  |  1989-01-09  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>10</cardCount>
  7.     <cardID>2872</cardID>
  8.     <listID>2237</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackset userLevel to 5end openStackon doMenu whichif the optionKey is down thenset userLevel to 5if which is "Help" thenpush cardgo to card "Quick Reference" of stack "HyperScrap"exit doMenuend ifif which contains "Paste" thenpush cardif which is not "Paste" thenput character 1 of word 2 of which into whatLetterend ifask "Paste:  F)ield, B)utton, T)ext, P)icture" with whatLetterif it is empty then exit doMenuif it is "B" thengo to card "Buttons" of stack "HyperScrap"show button "Paste"choose button toolclick at the loc of card button "Paste"doMenu "Cut Button"doMenu "Paste Button"choose browse toolexit doMenuend ifif it is "T" thengo to card "Text" of stack "HyperScrap"show button "Paste"choose browse toolexit doMenuend ifif it is "F" thengo to card "Fields" of stack "HyperScrap"show button "Paste"choose browse toolexit doMenuend ifif it is "P" thenpush cardask "Look up which graphic? (L for a list)" with "L"if it is empty then exit doMenuif it is "L" thenset cursor to 4lock screengo to card "Graphics" of stack "HyperScrap"choose field toolclick at the loc of card field "Lkqy"doMenu "Copy Field"put empty into graphicNamerepeat for the number of cards in background "Graphics"put graphicName & field 1 & "," into graphicNamego to next cardend repeatput empty into char 1 of graphicNamepop carddoMenu "Paste Field"unlock screenput "The names of the graphics are..."wait 1 secondhide messagerepeat with x = 1 to the number of items in graphicNameput item x of graphicName into line x of card field "Lkqy"end repeatchoose browse toolexit doMenuend ifput it into lookUpWhatGraphicpop cardgo to background "Graphics" of stack "HyperScrap"go to card lookUpWhatGraphicif the result is not empty thenanswer "That graphic was not found..." with "OK"pop cardshow button "Paste"exit doMenuend ifchoose browse toolif the short name of this card is lookUpWhatGraphic then exit doMenuend ifend ifend ifpass doMenuend doMenuon idleif message is "‚Ć" then send "‚Ć" to this stackif message is "¬©" then send "¬©" to this stackend idleon mouseWithinif the optionKey is down and the commandKey is down thenwait 1 secondif the optionKey is down and the commandKey is down thenset userLevel to 5set cursor to watchpush cardchoose field toolclick at the mouseLocdoMenu "Copy Field"lock screengo to card "Fields" of stack "HyperScrap"doMenu "Paste Field"pop cardunlock screenchoose browse toolexit mouseWithinend ifend ifif the commandKey is down thenwait 1 secondif the commandKey is down thenset userLevel to 5set cursor to watchpush cardchoose button toolclick at the mouseLocdoMenu "Copy Button"lock screengo to card "Buttons" of stack "HyperScrap"doMenu "Paste Button"pop cardunlock screenchoose browse toolexit mouseWithinend ifend ifend mouseWithinon "¬©"set userLevel to 5set cursor to 4push cardlock screenask "What do you want to call this graphic?"if it is empty thenpop cardput empty into messagehide messageexit "¬©"end ifif it is "L" thenanswer "You can't name your graphic 'L'" with "OK"send "¬©"exit "¬©"end ifif the number of characters in it > 16 thenanswer "Please pick a name 16 letters or shorter." with "OK"send "¬©"exit "¬©"end ifgo to card "Graphics" of stack "HyperScrap"put it into graphicNamedoMenu "New Card"set the name of this card to graphicNameput graphicName into field "Graphic Name"doMenu "Paste Picture"put empty into messagehide messagepop cardunlock screenend "¬©"on "‚Ć"push cardset userLevel to 5go to card "Text" of stack "HyperScrap"put the number of card fields into